home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / apollot.lha / apollot_sr10 / tboot / float.ins.pas < prev    next >
Pascal/Delphi Source File  |  1990-07-23  |  1KB  |  59 lines
  1.  
  2. PROCEDURE gc_interrupt;
  3.     EXTERN;
  4.  
  5. PROCEDURE t_$fladd(IN a,b: DOUBLE; OUT c: DOUBLE);
  6.     EXTERN;
  7.  
  8. PROCEDURE t_$flsubtract(IN a,b: DOUBLE; OUT c: DOUBLE);
  9.     EXTERN;
  10.  
  11. PROCEDURE t_$flmultiply(IN a,b: DOUBLE; OUT c: DOUBLE);
  12.     EXTERN;
  13.  
  14. PROCEDURE t_$fldivide(IN a,b: DOUBLE; OUT c: DOUBLE);
  15.     EXTERN;
  16.  
  17. PROCEDURE t_$sin(IN a: DOUBLE; OUT b: DOUBLE);
  18.     EXTERN;
  19.  
  20. PROCEDURE t_$cos(IN a: DOUBLE; OUT b: DOUBLE);
  21.     EXTERN;
  22.  
  23. PROCEDURE t_$tan(IN a: DOUBLE; OUT b: DOUBLE);
  24.     EXTERN;
  25.  
  26. PROCEDURE t_$atan(IN a: DOUBLE; OUT b: DOUBLE);
  27.     EXTERN;
  28.  
  29. PROCEDURE t_$exp(IN a: DOUBLE; OUT b: DOUBLE);
  30.     EXTERN;
  31.  
  32. PROCEDURE t_$log(IN a: DOUBLE; OUT b: DOUBLE);
  33.     EXTERN;
  34.  
  35. PROCEDURE t_$sqrt(IN a: DOUBLE; OUT b: DOUBLE);
  36.     EXTERN;
  37.  
  38. FUNCTION t_$flless(IN a,b: DOUBLE): INTEGER;
  39.     EXTERN;
  40.  
  41. FUNCTION t_$flequal(IN a,b: DOUBLE): INTEGER;
  42.     EXTERN;
  43.  
  44. FUNCTION t_$flgreater(IN a,b: DOUBLE): INTEGER;
  45.     EXTERN;
  46.  
  47. FUNCTION t_$fix (IN a: DOUBLE): INTEGER32;
  48.     EXTERN;
  49.  
  50. PROCEDURE t_$float (IN a: INTEGER32; OUT c: DOUBLE);
  51.     EXTERN;
  52.  
  53. PROCEDURE t_$atod (IN a: STRING; OUT c: DOUBLE);
  54.     EXTERN;
  55.  
  56. PROCEDURE t_$dtoa (OUT a: STRING; IN c: DOUBLE);
  57.     EXTERN;
  58.  
  59.